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ccc DOD DDD UUU UUU 
ccc DDD uuu 
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Lhe bos thesto-t9 4 23:42:47 


VA 
14-Sep-1984 11:58:24 DI 


001 0 MODULE Listing (IDENT='V04=000' 

00¢ ADDRESS ING_MODE (EXTERNAL =GENERAL) ) 

903 = BEGIN 

B92 ESSE SESE SESE STEP TTTc TTP T TTT ITTTTTITTITITIIT ITI S TTT TTTLLLTT TLL LiiTiitiiiitt 
'@ 


library ‘sys$library:lib'; 
require ‘cdureq'; 


4 1 
é 
: 0007 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 0008 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
m 484 : :* ALL RIGHTS RESERVED. * 
. * 
11 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i Og 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 Bote } :* TRANSFERRED. ° 
'@ * 
18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
3 Boss : * CORPORATION. : 
'@ 
$§ BOS¢ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
2 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
24 0024 1! * 
25 0025 1 !* * 
$$ 4 : LR OR REAR AERA AERA REAR EEE AEE EAE EAA E REAR 
28 0028 1 !++ . 
$3 34 : } Facility: Command Definition Utility, Listing Generation 
31 0031 1 ! Abstract: This module is responsible for pengreting a | feting of the 
3 i T4 ; § CLD files we are compiling. ALT files are Listed in one 
3 B88 ' Listing file, with headings, Line numbers, and error messages. 
3 Oo : Environment: Standard CDU environment. 
37 0039 1 | Author: Paul C. Anagnostopoulos 
36 0038 1 ! Creation: 1 December 1982 
39 0039 1! 
40 0040 1 ! Modifications: 
41 0041 1 !-- 
42 Boe 1 
44 0045 1 
44 1 
45 1 
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; TABLE OF CONTE 


d 1 
15-Sep-19 
14-Sep-19 


NTS 


forward routine 


cdu$Sprepare_listing_file: novalue, 
cduseject UTsting page: novalue, 


cdu$Sreport_Listing_ 
cdu$Sreport_listing_trailer: 


EXTERNAL REFER 


ne: novalue 


novalue; 


ENCES 


external routine 


cl ispresent . 
Lib$lp_Lines, 
str$trim; 


external 


cdu$Sfacility_string: descriptor, 


cdu$gl_cld_errors: long; 


$shr_msgdef(cdu,17,local, 
(openout,severe), 
(writeerr,error) 
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LISTING 15ese =1984 23:42:47 VAX-11 Bliss-32_V4.0-74 Page 3 
yOe-006 14-Sep-19 4 11:58:24 DI SKSVMSMASTER<CCDU. SRCILISTING.B32: 1 . (3) 


7 ae Ss Ft LISTING FILE CONTROL BLOCKS 

; WF 490 1 

3 0 91 1! The following items define the RMS control blocks needed to create and~ 

3 1 eS 1 ! generate the Listing file. 

; 495 1 

i: § 494 1 own 

ls ee P 0495 : Listing_nam: $nam( 

is Hy] 497 1 

wa. 6S 498 1 Putter \ tec tog spec nemscseurss), 

is a8 P 0499 1 Listing fab: $fab( 

3 9 P0500 1 dnm='.LIS', 

is 90 P 0501 1 fna=Listing_spec+8, 
is. P B206 1 fns=Zal locafion(listing_spec)-8, 

i” P 0505 1 fac=put, 

is; 9 P0504 1 fop=<sqo,nam,ofp>, 

13 (9G P0505 1 nam=Listing_nam, 

5; P 05 1 org=seq, 
im P 0507 1 rat=cr, 

l3 44 P 3208 : rfm=var 

7 0510 1 
't 100 P0511 1 Listing_rab: $rab( 

i; 101 P a 1 fab=Listing_fab, 
13 10¢ P0515 1 rac=seq, 

13 «10 P0514 1 rop=wbh 

13 104 0515 1 : 
j3 105 0516 1 
i3 106 0517 1! LISTING CONTROL 

Ps + 34 B215 : ' eSeeeeceevececoee=2 . <== POO SE ee ew ee 
: 109 B260 1 ! The following items keep track of the page number and the Line count within 
Pa ua Bg pte 

: 112 0853 1 own 
: 115 0524 #1 prge_nunters long, 

ee 0525 #1 ine_count: long; 
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19-Sep-1984 23:42:47 


VAX-11 Bliss-32 V4 
14-Sep-1984 11:58:24 DISKSVMSMASTER: 


'e¢ 


i Description: This routine is called to prepare the Listing file for the 
next CLD file Listing. 


' 

i 

} Parameters: cld_fab By reference, the FAB for the new CLD file. 
Returns: Nothing. 

| Notes: The listing file is created on the first call. 

COM, ROUTINE cduSprepare_listing_file(cld_fab: pointer) : novalue 
= 

local 


status: long; 


! Determine if we are to generate a Listing file. 

if cli$present(dtext("LISTING')) then ( 
! If we have not already created the Listing file, do so. 
if .listing_fabCfab$w_ifi] eqlu 0 then ( 


! Get any value specified on the listing qualifier to use as 
! the spec for the Listing file. 


cli$get_value(dtext("LISTING’),Listing_spec); 


' Use the CLD file NAM block as the related NAM block for our 
! Listing file. 


Listing_nam(nam$l_rlf] = .cld_fabCfab$i_nam]; 
! Create and connect to the Listing file. 


status = $create(fab=Listing_fab); 
if .status then ( 
status = $connect(rab=Listing_rab); 
if not .status then 
> of cdu$Sreport_rms_error(msg(cdu$_openout),lListing_rab); 
else 
R cdu$Sreport_rms_error(msg(cdu$_openout) ,Listing_fab); 
! Prepare for a new Listing by resetting the page number and 
! ejecting the page. 
page_number = 9 
R cdu$Seject_listing_page(); 


return; 
END; 
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LISTING 18.52 =1984 23:42:47 VAK"11 Bliss-32 V4.0-74 Page 7 
| voee 0 1h-8ep-1984 1:58:24 SLEKSVMEMASTERSLYDU SRCILISTING.B3251 . (4) 
| O01FC PAGENUMBER: 

-BLKB 4 
00200 LINE_COUNT: 
-BLKB 4 
.EXTRN CDUSREPORT_LISTING_HEADING2 
-EXTRN CDUSREPORT-RMS_ERROR 
-EXTRN CLISGET_VACLE,~ SL 1st ESENT 
-EXTRN LIBSLP_CINES, STRSTR 
SEXTRN CDUSFACILITY. STRIN 
-EXTRN CDUSGL_CLD_ERRORS 
.EXTRN SYSSCREATE, SYSSCONNECT 
«PSECT $CODE$,NOWRT,2 
0004 00000 .ENTRY CDUSPREPARE LLISTING_FILE, Save R2 : 0537. 
52 0000" CF 9€ 00002 MOVAB  LISTING_FAB> R2 : 
0000° CF 9F 00007 PUSHAB P.A : 0546 
000000006 00 gt FB 0000B CALLS #1, CLISPRESENT : 
54 0 £9 00012 BiBC RO, 4$ : 
02 A2 85 00015 TSTW LISTING FAB+2 > 0550 
46 12 00018 BNEQ $ : 
FEF8 C2 9F OOOIA PUSHAB LISTING_SPEC : 0555 
0000" CF 9F OODTE USHAB P.AAD : 
000000006 00 02 FB 00022 CALLS #2, CLISGET _VALUE : 
50 04 aC DO 00029 OVL CLD_FAB, : 0560 
FEA8 (2 28 ad 00 000¢0 OVL  40(RO), LISTING _NAM+16 : 
52 DD 00033 PUSHL R2 : 0564 
000000006 00 01 FB 00035 CALLS #1, SYSSCREATE : 
12 50 €9 0003C LBC STATUS, 1$ : 0565 
50 A2 9F 0003F PUSHAB LISTING_RAB : 0566 
000000006 00 01 FB 00042 CALLS #1, SYSSCONNECT 3 
14 50 €8 00049 BLBS STATUS, 3$ ; 0567. 
50 A2 9F 0004C PUSHAB LISTING_RAB : 0568 
02 11 0004F BRB 2$ : 
52 DD 00051 1$: PUSHL R2 : 0570. 
001110A4 BF DD 00053 2$: PUSHL #1118372 : 
000000006 02 FB 00059 CALLS #2, CDUSREPORT _RMS_ERROR : 
0094 C2 04 00060 3s: CLRL PAGE_N : 0576, 
0000v CF 00 FB 00064 CALLS #0, CDUSEJECT_LISTING_PAGE : 0577. 
04 00069 4$ RET : 0582. 


; Routine Size: 106 bytes, Routine Base: S$CODE$ + 0000 
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-PSECT SPLITS,NOWRT ,NOEXE ,2 


p-1984 23:42:47 VAX-11 Bliss-32 V4.0-74 Page 8 
i - -Sep-1984 66:6! DISKSVMEMASTERSLYDU SRCILISTING.B3251 . (5) 
> 174 0283 1 t+ ae 
s 7 B2 4 1! Description: This routine is called to eject the page in the Listing file. 
: 178 Beg? : } It produces a nice set of heading Lines at the top of Phe page. 
li 178 0367 : ; Parameters: None. 
3; 7 ‘ 
; 180 0589 1 ! Returns: Nothing. 
: 181 0590 1! 
; 186 0591 1 ! Notes: 
: ibe oes 1 
: 185 0594 1 GLOBAL ROUTINE cduSej isti 
ett 9395 Sete cduSeject_listing_page novalue 
i Bs $899 
; 12? R206 ! Increment the page number and reset the Line count for the new page. 
: 191 0600 increment (page_number); 
: 136 Bop Line_count > TTbSip Lines () - 5; 
; 138 gen: ! Generate a form feed. 
3 16 Bene é cdu$Sreport_listing_lLine(msg(cdu$_anything) ,nobabble+1,dtext (%char(FF))); 
3 iss Rene $ ! Generate a Line containing the date and time, utility name, and page number. 
; $0 +44 ; cdu$Sreport_listing_line(msg(cdu$_heading1) ,nobabble+3,0,cdu$facility_string, .page_number) ; 
; 202 0611 ! Generate a Line containing information about the CLD file we are compiling. 
: 4 pele § ! It's easier to just call : routine in the LEXICAL module. . ' . 
; 44 pele § cdu$Sreport_listing_heading2(); 
; son Beis 2 ! Put out two blank Lines. 
; 209 0618 5 cdu$Sreport_Listing_line(msg(cdu$_anything) ,nobabble+1,dtext('')); 
: si¢ +94 2 cduSreport_Llisting_line(msg(cdu$_anything) ,nobabble+1,dtext('")); 
3 212 0621 3 return; 
: 213 062 
3 216 0623 1 END: 
00 00 00 OC 00024 P.AAG: .ASCII <12><0><0><0> : 
010E0001 00028 P.AAF: .LONG 17694721 $ 
00000000' oO C P-aAl -ADDRESS P.AAG é 
19£ 0000 0030 P.AAH: .LONG 17694720 ; 
0000000° 000 -ADDRESS P.AAI 3 
8 P.AAK -BLKB b 
org 0000 00 P.AAJ: .LONG 7694720 r 
0000000° 00035C ADDRESS P.AAK d 


.EXTRN CDUS_ANYTHING, CDUS_HEADING1 
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SCODES,NOWRT,2 


CDUSEJECT LISTING PAGE Sexe R2,R3 


CDUSREPORT LISTING_LINE, R 
#CDUS_ANYTRING, R2 


PAGE_RUMBE 
" ciesLF LINES 
-5(R0), LIRE_COUNT 

. AAF 
+ idea 
a, CDUSREPORT _LISTING_LINE 
CDUSFACILITY_ STRING 
#65539 
#CDU$_HEADING1 
#5, CBUSREPORT_LI 
#0, CDUSREPORT_LI 
P.AAH 
#05537 
aS, CDUSREPORT_LISTING_LINE 
P.AAJ 
#05537 
RS CDUSREPORT_LISTING_LINE 


TING_LIN 
TING_HEA 


9 


0594 


0600 
0601 


0605 


0609 


0614 
0618 


0619 


6623 


Notes: 


GLOBAL ROUTINE cdu$Sreport_listing_lLine(message: long, 
fao_ count: word, 
faol: long) : novalue 


2 

LISTIN 18-56 -1984 42:47 VAX-11 Bliss-32 V4.0-74 Page 10 
bet 12-8 08- 1 9be 7:8 :24 DLSKSVMSMASTERSLCDU. SRCILISTING.B325 1 . (6) 

6 '+¢ 

6 ! Description: This routine is called to generate a Line in the ptoring file. 

6 : The Line is created using SFAO and written into the Listing 

? file without any other manipulation. 

6 ! Parameters: A standard $PUTMSG argument List. 

6 ; Returns: Nothing. 

6 

6 

6 

6 

6 
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= BEGIN 
builtin 
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064 argptr; 


: The following Little routine is the action routine for SPUTMSG. It 
! receives a formatted Line, which it writes into the Listing file. 
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Ww 


ROUTINE write_Line(lLine: ref descriptor) 
= BEGIN 


local 
status: long; 


Listing _rabCrab$w_rsz] = .lLineLlen]; 

Listing _rablrab$l_rbf] = .linelptr]; 

status = $put(rab=Listing_rab); 

if not .status then 
cdu$Sreport_rms_error(msg(cdu$_writeerr) ,Listing_rab); 


So 
o 


return false; 
END; 
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»EXTRN SYS$PUT 
0004 00000 WRITE_LINE: 
WORD 


2 Save R2 : 0647 
52 0000" CF 9E 0000 MOVAB LISTING_RAB, R2 F 
50 04 af DO 0000 MOVL LINE, RO 3; 0653 
32 Ag 60 BO 0000B MOVW (RO). LISTING RAB+34 ; 
8 A 04 AQ 0 O00F MOVL  4(ROS, LISTING_RAB+40 > 0654 
000000006 00 34 Pe i CALLS Re SYSSPU bem 
oF 5 £8 Solg BLBS STATUS, 1$ : 0656 
52 OD PUSHL Re > 0657 
00111002 BF ODD PUSHL #1118418 ; 
000000006 00 ; FB CALLS ne, CDUSREPORT_RMS_ERROR ; 
b4 OOF 1% CLRL OR > 065 
4 00031 RET > 066 


ean 


Us 


; Routine Size: 50 bytes, Routine Base: S$CODE$S + 0009 
> 254 66 
: 255 66 
: 2$ peee ! If a Listing file is not being oenerated, just return. 
: 258 66 if .listing_fabCfab$w_ifi] eqlu 0 th 
: 259 bee? retiras Me ones see 
; 260 0668 
: 2 Oe i ! If there are no Lines Left on the current page, then eject it. 
: 8 671 if .line_count eqlu 0 then 
: 265 bes CduSeject_listing_page(); 
> 266 0674 2 ! Use SPUTMSS to format the message Lines. It will call ti t 
: sor pee ! to write them into the Listing re. ‘ «atl te 9 cage 
: 269 P 0677 Sputmsg(msgvec=argptr(), 
: 570 eres ” actrtneurtte, Lined: 
: $f S555 8 1 necoune for th tli 
3 ! Account for n ne. 
; 38 0681 ¥ eens ¥ 
: 274 068 decrement (Line_count); 
3; 275 068 return; 
3; 276 0684 
: 277 0685 1 END; 
-EXTRN SYSSPUTMSG 
0000 00000 -ENTRY 
0000" CF T 00002 TSTW 
1D 13 00006 BEQL 
0000° CF o05 00008 TSTL LINE_COUNT 
05 12 0000C BNEQ 
FF4C CF 00 FB Boos CALLS 
7E 7C 00015 1$: CLRQ 
B6 AF 9F 00015 PUSHAB WRITE_LINE 
5C DD 00018 PUSHL AP 
00000000G 00 04 FB OOOIA CALLS #4, SYSSPUTMSG 
0000' CF 0D? ted DECL LINE_COUNT 
04 00025 2$: RET 
3; Routine Size: 38 bytes, Routine Base: $CODE$S + 010B 
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0-74 p 
OSRCILISTING.B32:1°% 


1 
(6 


7 


——-: 


2 
LISTIN 18-58 1984 23:42:47 VAX-11 Bliss-32 V4.0-74 Page 12 
vb2-006 1228057138 #7 :98:32 DLSKSVMSMASTERSCCDU. SRCILISTING.B32:1 . (7) 
++ 
: Description: This routine is called after a CLD file has been completely 
; Listed. It generates a nice Little trailer in the Listing 
: file, which includes the error count and the command Line 
; that invoked the CDU. 
; Parameters: None. 
; Returns: Nothing. 
; Notes: 


Se ee cduSreport_listing_trailer : novalue 


cqubreport.( isting. | ine(asg{céus anything) nobabblert dtext(’*)); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
i 
1 
0700 
4 
08 ! Skip down a couple of Lines and report the error count, unless it's zero. 
05 
2 
1 


fi 
7 
07 
07 
07 
0706 f .cdu$gl_cld_errors nequ 0 then 
0707 cdu$report_Listing_line(msg(cdu$_anything) ,nobabble+1,dtext('')); 
$44 cdu$Sreport_Listing_line(msg(cdu$_errorcount) ,nobabble+1,.cdu$gl_cld_errors); 
0710 ; 
tae ! Skip down another Line and report the command Line. 
306 O71 coBreport. | fet ing. | ineinsg(cdus_enything) novedblert .dtext(')); 
P 0714 with_dbuffer(command_line,1024, 
308 P 0715 cli$get_value(dtext(*SLINE') ,command_Line); 
309 P 0716 str$trim(command_line,command_line,command_Line); 
$9 P ore , cdu$report_listing_| ine (msg(cdu$_command| ine) ,.nobabble+1,command_Line); 
312 0719 
$12 0720 return; 
14 0721 
315 0722 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


00040 P.AAM: .BLKB 0 3 

010 0008 4 94 P.AAL: .LONG 17694720 3 
0000000' 00044 ADDRESS P.AAM 3 
bee P.AAO: .BLKB 3 

0105 0008 ze P.AAN: .LONG 17694720 : 
0000000' of ADDRESS P.AAO 3 
Bne P.AAQ: .BLKB $ 

0105 0000 0 P.AAP: .LONG 7694720 5 
0000000' Bees ADDRESS P.AAQ 3 
00 00 00 45 4E 49 4C 24 58 P.AAS: .ASCII \3t 1G \<0><0><0> 5 
010E0005 00060 P.AAR: .LONG 17694725 ; 
00000000" 00064 ADDRESS P.AAS 3 


-EXTRN CDUS_ERRORCOUNT 
ZEXTRN CDUS“COMMANDL INE 


a 


4 000000006 
ze 0000000 G 
E FBF 

4 ‘ 
00010001 
63 


000° 
00010001 


04 AE 


000000006 00 


000000006 00 


; Routine Size: 147 bytes, Routine Base: S$CODES 
316 0723 
317 0724 ND 
318 0725 O ELUDOM 
PSECT SUMMARY 


Name Bytes 


oMKhe it 
ors Bi 
8F 3 000D 
CE 9E B16 
F OF 19 
F DD 0001 
38 pe 00 
$ 08 66 
0 13 QO02A 
F 9F 000 f 
F DD 000 
¢ DD 000 $ 
03 FB 000 
64 DD 00038 
F DD 4 g 
F OD 0004 
3 FB 00049 
CF OF Boek 1$: 
8F DD 0005 
38 DD 00056 
03 FB 00058 
8F 3C 00058 
AE 9E 00060 
5E DD 00065 
CF 9F 00067 
02 FB Bp 8gs 
5E DD 0007 
AE 9F 00074 
Ag oF 4 444 
9 FB OO07A 
E 0D 00081 
dD Opo8e 
F DD 00089 
03 FB 0008F 
04 00092 
+ 0131 


Attributes 


984 23: 96:67 747 VAX-11 Bliss-32 V4.0 
984 11:58:24 DISKSVMSMASTER: clbuo sae LISTING. B32; 479 


SCODES ,NOWRT,2 


CDUSREPORT_LISTING_TRAILER, Save R2,R3,R4 
CDUSGL_CLD“ERRORS, R 
aces TaN, Re LINE, R3 


nights 


8 7 
DUSREPORT_LISTING_LINE 
pusGL _CLD_ERRORS 


N 


ee LISTING LINE 
CLD_ERRORS 


ERRORCOUNT 
BUSREPORT. LISTING_LINE 


vr Cuneo 
Ro WUVOAWOAO WS QO re 
% i=] 


RRDRBVBVBBVOBWIZBV"OVwWs 
NN 


625 een. “tite LINE 
ii: LINE+8, COMMAND_LINE+4 


#3. ACLISGET _VALUE 
COMMAND _LINE 
COMMAND LINE 
» STRSTRIM 
#65537 
#CDUS_COMMANDL INE 
a3, COUSREPORT _LISTING_LINE 


0699 


0705. 


0706 | 
0707 | 


0708 
0713, 


0718. 


0722 


en 


— 


File 


s Sizes 
un Time 00:14.4 


-$255$DUA28: CSYSLIBILIB.L32;1 


bs 

4-§ 
WRT. RD .NOENE,N 
E 


E 
WRT, RD ,NOE 
WRT, RD, EC 


2 
e 
e 
0 
OSH 


1 

14-Sep- 
x SHR 
xX SHR 
x SHR 


oo 


*N 
"NO 


Library Statistics 


eeeeeeoeon S erenrnenerere 


ymbol 
Total Loaded Percent 
18619 54 0 


COMMAND QUALIFIERS 


woo 


4 23:4 
984 11: : 3 
LEL. REL, 


LCL, REL, 
LCL, REL, 


Pages 
Mapped 


1000 


VAX-11 BL 
DISKSVMSM 


1 
Vv 
CON,NOP 
CON ,NOP 
CON ,NOP 


Processing 
Time 


00:01.8 


—eN og 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LISTING/OBJ=OBJ$:LISTING MSRC$:LISTING/UPDATE=(ENH$:LISTING) 
452 code + 620 data bytes 


os 
=. 
at 
zn 
os 
bw 
~ 
— 
nm 
—" 
a 
2 
o 
os] 
we 
n 
=» 
“o_o 
no 
~sS 


AH-BT13A-SE 
VAX/VMS V4.0 
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ONF 


